home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zm.d64 / proc.ext.handler < prev    next >
Text File  |  2007-03-01  |  727b  |  27 lines
  1. 0010 //LIST "@0:PRC.EXT.HANDLER1"
  2. 0020 //┴.├.═ILLEST - ╬OV.1985
  3. 0030 ╨╥╧├ DRIVE'EXT'HANDLER ├╠╧╙┼─
  4. 0040   ├┴╙┼ ┼╥╥ ╧╞
  5. 0050   ╫╚┼╬ 208
  6. 0060     BLINK("SWITCH DISK DRIVE ON")
  7. 0070   ╫╚┼╬ 274
  8. 0080     BLINK("PUT DISK IN DRIVE")
  9. 0090   ╫╚┼╬ 262
  10. 0100     BLINK("PUT IN ├╧╥╥┼├╘ DISK!!")
  11. 0110   ╧╘╚┼╥╫╔╙┼ 
  12. 0120     BLINK("NOT ┼╥╥ 208,262 OR 274")
  13. 0130   ┼╬─├┴╙┼ 
  14. 0140   
  15. 0150   ╨╥╧├ BLINK(STRING$) ├╠╧╙┼─
  16. 0160     //PAUSES WITH OPTIONAL MESSAGE
  17. 0170     ╒╙┼ SYSTEM
  18. 0180     ╨╥╔╬╘ 
  19. 0190     ╨╥╔╬╘ 
  20. 0200     ╫╚╔╠┼ ╦┼┘$=├╚╥$(0) ─╧
  21. 0210       ╨╥╔╬╘ ┴╘ CURROW-1,1: STRING$+"...PRESS ANY KEY"
  22. 0220       ╨╥╔╬╘ ┴╘ CURROW-1,1: ╙╨├$(╠┼╬(STRING$))+"                "
  23. 0230     ┼╬─╫╚╔╠┼ 
  24. 0240   ┼╬─╨╥╧├ BLINK
  25. 0250 ┼╬─╨╥╧├ DRIVE'EXT'HANDLER
  26. 0260 
  27.